﻿XIncludeFile "ImageWind.pb"
XIncludeFile "ImageButton.pb"
XIncludeFile "ImageText.pb"
XIncludeFile "ImageLabel.pb"
XIncludeFile "ImageDate.pb"
XIncludeFile "ImageImage.pb"
XIncludeFile "ImageMsgBox.pb"

Inte_GDIPlus()

; OpenWindow(4,0,0,200,200,"2009年8月",#PB_Window_SizeGadget|#PB_Window_SystemMenu)
; ButtonGadget(0,0,0,100,50,"测试")
; StringGadget(1,0,120,100,50,"测试")

DataSection
; 
;  Imagef:
;    IncludeBinary "5.png"
;  Imaged:
;    IncludeBinary "2.png"
;  Imagea: 
;    IncludeBinary "1.png"
;  Imageb:
   
EndDataSection

Global Hwnd=GdipOpenWindow(0,0,0,524,355,"万年历", #Gdip_Window_NoMax,#PB_Window_ScreenCentered )

   GdipCreateDate(Hwnd,0,20,40)

GdipShowWindow(Hwnd) 

Repeat
  WaitEvent=WaitWindowEvent()
  
  Im_Event = ImWndEvent()
  Im_Window = ImEventHwnd()
  Im_Gadget =ImEventGadget()
  Im_Type =ImEventType()
  If WaitEvent=#PB_Event_CloseWindow
     CloseWindow=1
  EndIf 
Until CloseWindow


FreeGDIPlus()


; IDE Options = PureBasic 4.50 (Windows - x86)
; CursorPosition = 29
; Folding = -
; EnableAsm
; EnableUnicode
; UseIcon = ..\Image\mydoc.ico
; Executable = C:\Documents and Settings\heqian\Desktop\PureBasi.exe
; HideErrorLog
; CompileSourceDirectory